home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / asm / Tandem2.68.lha / Tandem / Teaching / 20.i < prev    next >
Text File  |  2000-04-02  |  252b  |  11 lines
  1. * Teaching/16.i   (to demonstrate INCLUDE)
  2.  
  3.  xref _LVODisplayBeep
  4.  
  5. * beep the screen (intuition.library must already be in intbase)
  6. Beep:
  7.  move.l intbase,a6
  8.  sub.l a0,a0             ;a0=0 to beep all screens
  9.  jsr _LVODisplayBeep(a6) ;beep screens
  10.  rts
  11.